home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 February / PCWorld_2007-02_cd.bin / domacnost a kancelar / avedesk / AveDesk13.exe / Effects / Showcase / showcase.effectlet
Extensible Markup Language  |  2005-06-12  |  778b  |  36 lines
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <effectlet>
  3.    <info>
  4.        <name>Alternative Showcase script</name>
  5.        <author>Phat-Liz0rd, Dreadnaut</author>
  6.        <notes><![CDATA[ write notes here ]]></notes>
  7.        <version>0.0.1</version>
  8.    </info>
  9.    <settings>
  10.        <param name="Debug" type="Boolean" defval="False"/>
  11.    </settings>
  12.  
  13.    <preferences> </preferences>
  14.    <images></images>
  15.  
  16.    <script engine="vbScript"><![CDATA[
  17.  
  18.  Dim state
  19.  Dim aveDesk
  20.  
  21.  Sub OnCreate()
  22.   state = 0
  23.   set aveDesk = CreateObject("AveDesk.Application")
  24.  End Sub
  25.  
  26.  Sub OnMouseOn()
  27.   If state = 0 Then
  28.    aveDesk.ShowCase.ActivateOnAllDesklets()
  29.    state = 1
  30.   Else
  31.    aveDesk.ShowCase.DeActivate()
  32.    state = 0
  33.   End If
  34.  End Sub
  35.    ]]></script>
  36. </effectlet>